/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / POWERBASE / USERFUNCS / AgeInYrs

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 1f dd 20 a4 55 | 61 67 65 69 6e 79 72 73 |..... .U|ageinyrs|
|00000010| 28 64 61 74 65 31 24 2c | 64 61 74 65 32 24 29 0d |(date1$,|date2$).|
|00000020| 00 02 0f 20 f4 20 2d 2d | 2d 20 76 2e 30 32 0d 00 |... . --|- v.02..|
|00000030| 03 41 20 f4 20 2d 2d 2d | 20 64 61 74 65 31 24 20 |.A . ---| date1$ |
|00000040| 26 20 64 61 74 65 32 24 | 20 69 6e 20 66 6f 72 6d |& date2$| in form|
|00000050| 61 74 20 3a 20 22 44 44 | 2d 4d 4d 2d 59 59 22 20 |at : "DD|-MM-YY" |
|00000060| 6f 72 20 22 44 44 2d 4d | 4d 2d 59 59 59 59 22 0d |or "DD-M|M-YYYY".|
|00000070| 00 04 2e 20 f4 20 23 23 | 23 20 4e 6f 77 20 68 61 |... . ##|# Now ha|
|00000080| 6e 64 6c 65 73 20 63 65 | 6e 74 75 72 79 20 77 72 |ndles ce|ntury wr|
|00000090| 61 70 2d 61 72 6f 75 6e | 64 20 23 23 23 0d 00 05 |ap-aroun|d ###...|
|000000a0| 32 20 ea 20 64 31 25 2c | 64 32 25 2c 6d 31 25 2c |2 . d1%,|d2%,m1%,|
|000000b0| 6d 32 25 2c 79 31 25 2c | 79 32 25 2c 61 67 65 25 |m2%,y1%,|y2%,age%|
|000000c0| 2c 61 67 65 24 20 3a 20 | 61 67 65 24 3d 22 22 0d |,age$ : |age$="".|
|000000d0| 00 06 20 20 e7 20 64 61 | 74 65 31 24 3c 3e 22 22 |..  . da|te1$<>""|
|000000e0| 20 80 20 64 61 74 65 32 | 24 3c 3e 22 22 20 8c 0d | . date2|$<>"" ..|
|000000f0| 00 07 3e 20 20 20 64 31 | 25 3d bb 28 c0 64 61 74 |..>   d1|%=.(.dat|
|00000100| 65 31 24 2c 32 29 29 3a | 6d 31 25 3d bb 28 c1 64 |e1$,2)):|m1%=.(.d|
|00000110| 61 74 65 31 24 2c 34 2c | 32 29 29 3a 79 31 25 3d |ate1$,4,|2)):y1%=|
|00000120| bb 28 c2 64 61 74 65 31 | 24 2c 32 29 29 0d 00 08 |.(.date1|$,2))...|
|00000130| 3e 20 20 20 64 32 25 3d | bb 28 c0 64 61 74 65 32 |>   d2%=|.(.date2|
|00000140| 24 2c 32 29 29 3a 6d 32 | 25 3d bb 28 c1 64 61 74 |$,2)):m2|%=.(.dat|
|00000150| 65 32 24 2c 34 2c 32 29 | 29 3a 79 32 25 3d bb 28 |e2$,4,2)|):y2%=.(|
|00000160| c2 64 61 74 65 32 24 2c | 32 29 29 0d 00 09 1a 20 |.date2$,|2)).... |
|00000170| 20 20 e7 20 79 32 25 3c | 31 30 20 8c 20 79 32 25 |  . y2%<|10 . y2%|
|00000180| 2b 3d 31 30 30 0d 00 0a | 48 20 20 20 e7 20 79 32 |+=100...|H   . y2|
|00000190| 25 3c 79 31 25 20 84 20 | 28 79 32 25 3d 79 31 25 |%<y1% . |(y2%=y1%|
|000001a0| 20 80 20 6d 32 25 3c 6d | 31 25 29 20 84 20 28 79 | . m2%<m|1%) . (y|
|000001b0| 32 25 3d 79 31 25 20 80 | 20 6d 32 25 3d 6d 31 25 |2%=y1% .| m2%=m1%|
|000001c0| 20 80 20 64 32 25 3c 64 | 31 25 29 20 8c 0d 00 0b | . d2%<d|1%) ....|
|000001d0| 12 20 20 20 20 20 61 67 | 65 24 3d 22 2d 2d 22 0d |.     ag|e$="--".|
|000001e0| 00 0c 08 20 20 20 cc 0d | 00 0d 15 20 20 20 20 20 |...   ..|...     |
|000001f0| 61 67 65 25 3d 79 32 25 | 2d 79 31 25 0d 00 0e 0f |age%=y2%|-y1%....|
|00000200| 20 20 20 20 20 c8 8e 20 | b9 20 ca 0d 00 0f 20 20 |     .. |. ....  |
|00000210| 20 20 20 20 20 20 c9 20 | 28 6d 32 25 3c 6d 31 25 |      . |(m2%<m1%|
|00000220| 29 20 3a 20 61 67 65 25 | 2d 3d 31 0d 00 10 2c 20 |) : age%|-=1..., |
|00000230| 20 20 20 20 20 20 c9 20 | 28 6d 32 25 3d 6d 31 25 |      . |(m2%=m1%|
|00000240| 29 20 80 20 28 64 32 25 | 3c 64 31 25 29 20 3a 20 |) . (d2%|<d1%) : |
|00000250| 61 67 65 25 2d 3d 31 0d | 00 11 0a 20 20 20 20 20 |age%-=1.|...     |
|00000260| cb 0d 00 12 15 20 20 20 | 20 20 61 67 65 24 3d c3 |.....   |  age$=.|
|00000270| 28 61 67 65 25 29 0d 00 | 13 08 20 20 20 cd 0d 00 |(age%)..|..   ...|
|00000280| 14 06 20 cd 0d 00 15 09 | 3d 61 67 65 24 0d ff    |.. .....|=age$.. |
+--------+-------------------------+-------------------------+--------+--------+